home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
B-Business
/
(c)b4.d64
/
file_boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
567b
|
20 lines
1 REM PONZO/84/WATERLOO
2 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
3 [143] FILE/BOOT
4 [143]"FREFREFREFREFREFREFREFREFRE
10 POKE56,7*16+12:POKE55,8*16:CLR
15 POKE53281,6:POKE53280,6:PRINTCHR$(14)
20 F1$="FILE/SORT":F2$="FILE/MASTER"
25 PRINT"[147][215]HERE IS "F1$" AND "F2$
30 INPUT"DRIVE 0[157][157][157]";DR$:POKE704,VAL(DR$)
31 PRINT"[147]NOTE:[157][157][157][157][157][184][184][184][184][145]";
32 PRINT" [193]FTER [198][201][204][197]/[205][193][211][212][197][210] IS [204][207][193][196]ED"
33 PRINT" HIT E[146] FOR AN EXPLANATION."
35 PRINT"LOADING:"F1$,F2$
36 F1$=F1$+"*":F2$=F2$+"*"
40 PRINT"LOAD"CHR$(34)DR$":"F1$CHR$(34)",8,1"
50 PRINT"NEW"
60 PRINT"LOAD"CHR$(34)DR$":"F2$CHR$(34)",8"
70 PRINT"RUN"
100 POKE198,5:FORI=0TO4:POKE631+I,13:NEXT:END